home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir40 / pc37042.zip / BAT / RUNCBL.BAT < prev    next >
DOS Batch File  |  1988-01-01  |  3KB  |  85 lines
  1. REM This is a demo of PC/370 subroutines called from Micro Focus COBOL.
  2. REM The COBOL programs are included in CBL source and INT object form.
  3. REM The Micro Focus runtime program RUN.EXE is required to execute demo.
  4. REM The Micro Focus extended memory shell XM.EXE is required to demo
  5. REM execution of same programs in extended memory protect mode.
  6. REM Note the following COBOL directive file was used to set IBM 370
  7. PAUSE data format compatability.
  8. COPY CBL\COBOL.DIR CON:
  9. REM The following COBOL program and ALC subroutine tests 4 different
  10. PAUSE data formats being passed using standard linkage conventions.
  11. COPY CBL\CALL370.CBL CON:
  12. PAUSE Next assemble the ALC program.
  13. A370 CBL\TEST370/LX
  14. COPY CBL\TEST370.PRN CON:
  15. PAUSE Next link the ALC program.
  16. L370 CBL\TEST370/LXB
  17. COPY CBL\TEST370.LST CON:
  18. PAUSE Now make PC/370 resident
  19. E370R42
  20. PAUSE Now execute the COBOL program in real mode and then extended mode
  21. CD CBL
  22. C:\C2WB\RUN CALL370
  23. C:\C2WB\XM C:\C2WB\RUN CALL370
  24. CD ..
  25. PAUSE To remove the current resident emulator, execute it again as follows.
  26. E370R42
  27. erase cbl\test370.obj
  28. erase cbl\test370.lst
  29. erase cbl\test370.prn
  30. REM The following COBOL program and ALC subroutine tests file I/O within
  31. REM ALC subroutine using system queue area (SQA) memory allocated in the
  32. PAUSE emulator region for dynamic file buffer.
  33. COPY CBL\CALLCIO.CBL CON:
  34. PAUSE Next assemble the ALC program.
  35. A370 CBL\TESTCIO/LX
  36. COPY CBL\TESTCIO.PRN CON:
  37. PAUSE Next link the ALC program.
  38. L370 CBL\TESTCIO/LXB
  39. COPY CBL\TESTCIO.LST CON:
  40. PAUSE Now make PC/370 resident and request 8k byte SQA (x'200' paragraphs)
  41. E370R42.EXE 200
  42. PAUSE Next execute the COBOL program in real and then extended mode
  43. CD CBL
  44. C:\C2WB\RUN CALLCIO
  45. C:\C2WB\XM C:\C2WB\RUN CALLCIO
  46. CD ..
  47. PAUSE To remove the current resident emulator, execute it again as follows.
  48. E370R42
  49. erase cbl\testcio.obj
  50. erase cbl\testcio.lst
  51. erase cbl\testcio.prn
  52. REM The following COBOL program and ALC subroutine tests SQA memory allocation.
  53. COPY CBL\CALLSQA.CBL CON:
  54. PAUSE Next assemble the ALC program.
  55. A370 CBL\TESTSQA/LX
  56. COPY CBL\TESTSQA.PRN CON:
  57. PAUSE Next link the ALC program.
  58. L370 CBL\TESTSQA/LXB
  59. COPY CBL\TESTSQA.LST CON:
  60. PAUSE Now make PC/370 resident and request 2k byte SQA (x'80' paragraphs)
  61. E370R42 80
  62. CD CBL
  63. PAUSE Now execute the COBOL program once to allocate first half of SQA.
  64. C:\C2WB\RUN CALLSQA
  65. REM   Now run simple echo message COM program in separate address space
  66. PAUSE to verify SQA memory is isolated and preserved across COM executions.
  67. CD ..
  68. A370 CBL\TESTCOM
  69. L370 CBL\TESTCOM/G
  70. ERASE CBL\TESTCOM.OBJ
  71. CD CBL
  72. PAUSE Now execute the COBOL program again to allocate last half of SQA.
  73. C:\C2WB\XM C:\C2WB\RUN CALLSQA
  74. PAUSE Now execute the COBOL program again to show SQA allocated and RC = 1.
  75. C:\C2WB\RUN CALLSQA
  76. CD ..
  77. PAUSE To remove the current resident emulator, execute it again as follows.
  78. E370R42
  79. erase cbl\testsqa.obj
  80. erase cbl\testsqa.lst
  81. erase cbl\testsqa.prn
  82. REM   That's the end of the demo.  Remember to make PC/370 resident before
  83. REM   starting the Micro Focus Workbench or calls to PC/370 BIN files will
  84. REM   result in error message and exit from call.
  85.